home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / 3DTeppich.AMOS / 3DTeppich.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  704 b   |  28 lines
  1. ' *************************************  
  2. ' *                                   *  
  3. ' *         3D Teppich V1.0           *  
  4. ' *   Written by Christopher Hodges   *  
  5. ' *                                   *  
  6. ' *************************************  
  7. '
  8. ' 3D carpet simply shows a colour cycling effect.
  9. '
  10. Screen Open 0,320,200,32,0
  11. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  12. XA=Rnd(45)+20
  13. Degree : Hide 
  14. C=0
  15. For YY=0 To 359 Step 12
  16.   Add C,1,1 To 30
  17.   For Y=10 To 200 Step 20
  18.     B=Y*2
  19.     For X=10 To 320 Step 20
  20.       XC=Sin(YY+B)*9+X : YC=Cos(YY+B)*9+Y
  21.       Ink C : Bar XC,YC To XC+1,YC+1
  22.       Add B,XA
  23.     Next 
  24.   Next 
  25. Next 
  26. For A=0 To 31 : Colour A,0 : Next 
  27. Palette 0,$FFF
  28. Shift Up 2,1,30,1